3 |
How do I change the control's border, using your EBN files
With StatusBar1 .BeginUpdate .VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn" .Appearance = &H1000000 .VisualAppearance.Add 4,"c:\exontrol\images\border.ebn" .VisualAppearance.Add 5,"CP:4 1 1 -1 -1" .BackColorPanels = &H5000000 .Format = "1,2,3,4,(5/6/7/8)" .Debug = True .EndUpdate End With |
2 |
How do I remove the control's border
With StatusBar1 .BeginUpdate .Appearance = None2 .VisualAppearance.Add 4,"c:\exontrol\images\border.ebn" .VisualAppearance.Add 5,"CP:4 1 1 -1 -1" .BackColorPanels = &H5000000 .Format = "1,2,3,4,(5/6/7/8)" .Debug = True .EndUpdate End With |
1 |
How can I change the control's font
With StatusBar1 .BeginUpdate .VisualAppearance.Add 4,"c:\exontrol\images\border.ebn" .VisualAppearance.Add 5,"CP:4 1 1 -1 -1" .BackColorPanels = &H5000000 Set f = CreateObject("StdFont") With f .Name = "Verdana" .Size = 12 End With .Font = f .Format = """static text""[fg=255][a=17],11,22,(33/44)" .EndUpdate End With |